Sub dos()
    Dim MiVar As Integer
    MiVar = 1
    If MiVar = 0 Then
        Exit Sub ' Abandona el procedimiento
    End If
    Debug.Print "Mtodo dos: MiVar = " & MiVar
End Sub
